home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-01 / castools.zip / FUNC9H.ASM < prev    next >
Assembly Source File  |  1989-08-10  |  1KB  |  34 lines
  1. Include multi.inc
  2. Include model.inc
  3.  
  4. ;==============================================================================
  5. ;
  6. ;   CAS function 09h -- Open A File
  7. ;   
  8. ;   Format:
  9. ;               int CASDeleteAllFiles (BYTE queue)
  10. ;   Input:
  11. ;               queue to delete
  12. ;   Output:
  13. ;               Returns 0 if successful or negative error code
  14. ;==============================================================================
  15.  
  16.                 .CODE
  17. CASDeleteAllFiles       PROC    arg1:BYTE 
  18.  
  19.                 push    dx              ; save register
  20.                 
  21.                 mov     ax,MUX          ; load multiplex number
  22.                 mov     ah,al           ; move into ah
  23.                 mov     al,09h          ; CAS function 9
  24.                 mov     dl,arg1         ; queue to delete 
  25.                 int     2Fh
  26.  
  27.                 pop     dx              ; restore register
  28.                 ret
  29. CASDeleteAllFiles       endp
  30.      
  31.                 END
  32.                 
  33.  
  34.